" & vbcrlf & _
"
" & vbcrlf
end with
end if
GetProductVariationCardMarkup = GetProductVariationCardMarkup & _
"" & vbcrlf & _
"" & vbcrlf & _
htmlencode(.ObjectOf("Text").StringOf(CurrentLanguageId23d)) & vbcrlf & _
"
" & vbcrlf & _
"" & vbcrlf & _
"" & htmlencode(ProdVarJsonObj23d.ObjectOf("DescriptionFull").StringOf(CurrentLanguageId23d)) & "" & vbcrlf & _
"
" & vbcrlf & _
"" & vbcrlf & _
FormatCurrencyEur(ProdVarJsonObj23d.StringOf("Price")) & vbcrlf
if Int2Bool(ProdVarJsonObj23d.BoolOf("DiscountApplicable")) then
GetProductVariationCardMarkup = GetProductVariationCardMarkup & _
" " & FormatCurrencyEur(ProdVarJsonObj23d.StringOf("OriginalPrice")) & "" & vbcrlf
end if
GetProductVariationCardMarkup = GetProductVariationCardMarkup & _
"
" & vbcrlf & _
"" & vbcrlf
if isAvailable23d then
GetProductVariationCardMarkup = GetProductVariationCardMarkup & _
"" & vbcrlf
else
GetProductVariationCardMarkup = GetProductVariationCardMarkup & _
"" & vbcrlf
end if
isInWishList = false
if JsonType(oPageData, "WishList") = "Object" then
isInWishList = (oPageData23d.ObjectOf("WishList").ArrayOf("Items").FindString(ProductVariationId23d, 1) > -1)
end if
GetProductVariationCardMarkup = GetProductVariationCardMarkup & _
"
" & vbcrlf & _
"" & vbcrlf & _
"